100 REM -- CO2 GAS --
105 PRINT"[147]"
110 PRINT"OUTPUT TO SCREEN OR PRINTER (S/P)    S[157][157][157]";:INPUTA$
115 IF A$="S" THEN Z=1.33:Z1=0:Z2=26.4:GOTO130:REM VALUES FOR SCREEN OUTPUT
120 IF A$<>"P" THEN110
125 Z=1.208:Z1=2.01:Z2=38.24:REM VALUES FOR PRINTER OUTPUT
130 VERIFY 1:LET0,1
135 CONT
140 REM -- SET UP CONSTANTS --
145 REM -- XT AND YT SET X AND Y AXES. XS AND YS SET START OF X AND Y AXES.
150 REM -- EX AND EY ARE EXPANSION FACTORS FOR X AND Y COORDINATES.
155 XT=Z2:YT=10:XS=Z2:YS=10:EX=400*Z:EY=1
160 REM -- CALIBRATE X COORDINATES --
165 FORX=XS TO319 STEP5*Z
170 Y=YT:WAITX,Y:NEXTX
175 FORX=XS TO319 STEP10*Z
180 FORY=YT-1 TO YT+1:WAITX,Y:NEXTY:NEXTX
185 FORX=Z2TO319 STEP50*Z
190 FORY=YT-2 TO YT+2:WAITX,Y:NEXTY:NEXTX
195 REM -- CALIBRATE Y COORDINATES --
200 FOR Y=YSTO199 STEP5
205 X=XT:WAITX,Y:NEXTY
210 FOR Y=YS TO 199 STEP 10
215 FOR X=XT-1 TO XT+1:WAITX,Y:NEXTX:NEXTY
220 FOR Y=YS TO 199 STEP50
225 FOR X=XT-3 TO XT+3:WAITX,Y:NEXTX:NEXTY
247 REM --GRAPH.CO2 --
248 REM --- CO2 GRAPH OF VAN DER WAALS CORRECTION TO GAS LAW NEAR CRITICAL T
249 REM -- T=TEMPERATURE KELVIN.]A & B= CORRECTIONS. V=LITERS. P=ATM PRESSURE
250 FOR T=264 TO 324 STEP 20
260 A=3.59:B=.0427
270 FOR V=.08 TO .400 STEP.001
280 P=.0821*T/(V-B)-A/(V*V)
290 X1=EX*V+XT:Y1=EY*P+YT:WAITX1,Y1:NEXT V:NEXT T
999 REM -- SCREEN OR HARDCOPY --
1000 GET A$:IF A$="" THEN1000
1010 PRINT "[147]":VERIFY 0:PRINTCHR$(14)
1020 PRINT"HARDCOPY (Y/N)    N[157][157][157]";:INPUTA$:IFA$="N" THEN1080
1030 IFA$<>"Y"THEN1010
1040 PRINT"SINGLE OR DOUBLE WIDTH (S/D)    S[157][157][157]";:INPUTA$
1050 IFA$="S" THEN POKE2,1:GOTO1070
1060 POKE2,2:IFA$<>"D"THEN1040
1070 VERIFY 1:SYS52224
1080 VERIFY 0:PRINTCHR$(14):LIST